home *** CD-ROM | disk | FTP | other *** search
-
- #(
- #!
- (lisp::in-package 'user::system)
- #!
- (lisp::export '(system::define-compiler-macro system::undef-compiler-macro system::define-inline-function))
- #!
- (lisp::in-package 'system::compiler)
- lisp::progn
- compiler::c1progn
- compiler::c1special
- compiler::c2progn
- compiler::c2
- system::structure-ref
- compiler::c1structure-ref
- compiler::c1
- compiler::structure-ref
- compiler::c2structure-ref
- compiler::wt-structure-ref
- compiler::wt-loc
- system::structure-set
- compiler::c1structure-set
- compiler::structure-set
- compiler::c2structure-set
- "#.*CMPERR-TAG*"
- compiler::location
- :type
- compiler::vv
- lisp::lambda
- system::|#,|
- "Sharp-comma-macro was found in a bad place."
- "The function ~s is illegal."
- compiler::*cmperr-tag*
- compiler::*c1nil*
- compiler::*c1t*
- compiler::call-local
- :sp-change
- compiler::info
- compiler::c1conditional
- compiler::compiler-macro
- lisp::funcall
- lisp::quote
- system::structure-access
- lisp::elt
- system::list-nth
- "Sharp-comma-macro was found in a bad place."
- compiler::no-sp-change
- compiler::arg-types
- lisp::string
- lisp::character
- lisp::array
- lisp::vector
- "Type mismatch was found in ~s."
- "Type mismatch was found in ~s."
- compiler::call-global
- compiler::call-lambda
- compiler::*exit*
- compiler::*last-label*
- 1
- compiler::*unwind-exit*
- compiler::*compiler-output1*
- 0
- compiler::*vs*
- compiler::*max-vs*
- compiler::*level*
- compiler::*next-cmacro*
- compiler::*reservation-cmacro*
- compiler::*base-used*
- compiler::*safe-compile*
- compiler::*reservations*
- compiler::*value-to-go*
- compiler::trash
- compiler::*inline-blocks*
- (lisp::t)
- (lisp::t lisp::t lisp::t)
- lisp::fixnum
- compiler::fixnum-value
- compiler::character-value
- lisp::long-float
- compiler::long-float-value
- lisp::short-float
- compiler::short-float-value
- system::putprop
- lisp::caddr
- system::defmacro*
- 'compiler::compiler-macro
- (compiler::tmp0 compiler::tmp1 compiler::tmp2 compiler::tmp3 compiler::tmp4 compiler::tmp5 compiler::tmp6 compiler::tmp7 compiler::tmp8 compiler::tmp9)
- compiler::*compiler-temps*
- (lisp::&optional lisp::&rest lisp::&key lisp::&aux)
- "TMP"
- compiler::compiler
- "The parameter ~s for the inline function ~s is illegal."
- lisp::list
- lisp::defun
- system::define-compiler-macro
- lisp::list*
- 'lisp::let
- 2
- compiler::c1expr*
- compiler::c1expr
- compiler::make-info
- compiler::object-type
- compiler::c1nil
- compiler::c1t
- compiler::c1symbol-fun
- compiler::c1lambda-fun
- compiler::c2expr
- compiler::c2expr*
- compiler::c2expr-top
- compiler::c2expr-top*
- compiler::c1progn*
- compiler::c1args
- compiler::c1structure-ref1
- compiler::c1constant-value
- system::undef-compiler-macro
- system::define-inline-function
- compiler::add-info
- compiler::add-object
- compiler::add-constant
- compiler::c1var
- compiler::cmperr
- compiler::c1local-fun
- compiler::get-local-return-type
- compiler::get-local-arg-types
- compiler::and-form-type
- compiler::cmp-expand-macro
- compiler::inline-possible
- compiler::cmp-eval
- system::fixnump
- compiler::get-return-type
- compiler::get-arg-types
- compiler::check-form-type
- lisp::aref
- compiler::type-and
- compiler::cmpwarn
- system::aset
- compiler::c1lambda-expr
- compiler::c2call-global
- compiler::wt1
- compiler::reset-top
- compiler::add-symbol
- compiler::inline-args
- compiler::unwind-exit
- compiler::close-inline-blocks
- lisp::typep
- )
-